*THIS DO FILE PRODUCES FIGURE 1 IN THE PAPER.

clear
use som

drop if f115c==96
drop if f156!=1

foreach x in f115a f115b f115c f115e{
	recode `x' (97 98 99 = .)
	recode `x' (5=1 "Never") (4=2 "Rarely") (3=3 "Monthly") (2=4 "Weekly") (1=5 "Almost daily"),g(`x'_rec)
}

graph bar, over(f115c_rec) title("Workplace") ytitle("") ylabel(, nogrid) legend(off) plotregion(style(none)) scale(.8) blabel(bar, format(%2.0f))
gr_edit scaleaxis.style.editstyle majorstyle(tickangle(horizontal)) editcopy
gr save gr1, replace
graph bar, over(f115a_rec) title("Privately") ytitle("") ylabel(, nogrid) legend(off) plotregion(style(none)) scale(.8) blabel(bar, format(%2.0f))
gr_edit scaleaxis.style.editstyle majorstyle(tickangle(horizontal)) editcopy
gr save gr2, replace
graph bar, over(f115b_rec) title("Publicly") ytitle("") ylabel(, nogrid) legend(off) plotregion(style(none)) scale(.8) blabel(bar, format(%2.0f))
gr_edit scaleaxis.style.editstyle majorstyle(tickangle(horizontal)) editcopy
gr save gr3, replace
graph bar, over(f115e_rec) title("Online") ytitle("") ylabel(, nogrid) legend(off) plotregion(style(none)) scale(.8) blabel(bar, format(%2.0f))
gr_edit scaleaxis.style.editstyle majorstyle(tickangle(horizontal)) editcopy
gr save gr4, replace

gr combine gr1.gph gr2.gph gr3.gph gr4.gph, ycommon 
graph save "figure1.gph", replace
gr export  "figure1.pdf",as(pdf) replace